home *** CD-ROM | disk | FTP | other *** search
- Program Example87;
-
- { Program to demonstrate the Break function. }
-
- Var I : longint;
-
- begin
- I:=0;
- While I<10 Do
- begin
- Inc(I);
- If I>5 Then
- Break;
- Writeln (i);
- end;
- I:=0;
- Repeat
- Inc(I);
- If I>5 Then
- Break;
- Writeln (i);
- Until I>=10;
- For I:=1 to 10 do
- begin
- If I>5 Then
- Break;
- Writeln (i);
- end;
- end.
-